home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / CarribeanPoker.dxr / Internal_7_bet ui.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  1.9 KB  |  75 lines
  1. property pSprite, spriteNum, pAmount, pNormal, pRollover, pPressed, pDisabled, pActive
  2. global gBetUI, gBet, gMessageBox, gButton, gPlayerUI
  3.  
  4. on beginSprite me
  5.   pSprite = sprite(spriteNum)
  6.   pNormal = pSprite.member
  7.   pPressed = member(pSprite.member.name && "down")
  8.   pDisabled = member(pSprite.member.name && "dis")
  9.   pActive = 1
  10.   me.toggleActive(#on)
  11.   gBetUI.add(pSprite)
  12.   ogDelim = the itemDelimiter
  13.   the itemDelimiter = SPACE
  14.   pAmount = value(pSprite.member.name.item[2])
  15.   the itemDelimiter = ogDelim
  16. end
  17.  
  18. on toggleActive me, onOff
  19.   case onOff of
  20.     #on:
  21.       pSprite.member = pNormal
  22.       pActive = 1
  23.     #off:
  24.       pSprite.member = pDisabled
  25.       pActive = 0
  26.   end case
  27. end
  28.  
  29. on mouseDown me
  30.   if pActive then
  31.     pSprite.member = pPressed
  32.   end if
  33. end
  34.  
  35. on mouseUp me
  36.   if pActive then
  37.     pSprite.member = pNormal
  38.     if gPlayerUI[#lastBet].pActive then
  39.       gBet.mClearAnte()
  40.       gPlayerUI[#lastBet].toggleActive(#off)
  41.     end if
  42.     if gMessageBox.text <> "Please deal" then
  43.       gMessageBox.text = "Please deal"
  44.     end if
  45.     gPlayerUI[#deal].toggleActive(#on)
  46.     aResult = gBet._anteUp(pAmount)
  47.     if not voidp(aResult) then
  48.       gMessageBox.text = aResult & "," && "Please deal"
  49.     end if
  50.     if gBet._ante = 100 then
  51.       repeat with i in gBetUI
  52.         i.toggleActive(#off)
  53.       end repeat
  54.       gMessageBox.text = "You bet the maximum"
  55.       gPlayerUI[#deal].toggleActive(#off)
  56.       dealCardsOut()
  57.     else
  58.       repeat with i in gBetUI
  59.         if (gBet._ante + i.pAmount) >= 101 then
  60.           i.toggleActive(#off)
  61.         end if
  62.       end repeat
  63.     end if
  64.     repeat with i in gBetUI
  65.       if ((gBet._ante + i.pAmount) * 2) > (gBet.pCreditBalance - i.pAmount) then
  66.         i.toggleActive(#off)
  67.       end if
  68.     end repeat
  69.     if (gBetUI[1].pActive = 0) and (gBetUI[2].pActive = 0) and (gBetUI[3].pActive = 0) and (gBetUI[4].pActive = 0) then
  70.       gPlayerUI[#deal].toggleActive(#off)
  71.       dealCardsOut()
  72.     end if
  73.   end if
  74. end
  75.